#!/usr/bin/perl -w   # useful for syntax highlighting
package clreqd_modules;

sub remove_node_keys {
my %ARGS=@_;

	my $node=$ARGS{NODE};
	my $count=0;
	my $d=$::ENV{TRUECL_CFG};
	if(-f "$d/keys/$node.key") {
		$count++;
		unlink("$d/keys/$node.key");
	}
	if(-f "$d/pki/$node.public") {
		$count++;
		unlink("$d/pki/$node.public");
	}
	if(-f "$d/pki/$node.private") {
		$count++;
		unlink("$d/pki/$node.private");
	}
	return "OK $count";
}

1;
